home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Sound / PreludeAMP / src / transform.h < prev   
Encoding:
C/C++ Source or Header  |  1998-01-25  |  12.0 KB  |  169 lines
  1. /* this file is a part of amp software, (C) tomislav uzelac 1996,1997
  2. */
  3.  
  4. /* transform.h  tables galore
  5.  *
  6.  * Created by: tomislav uzelac  May 1996
  7.  * Last modified by: tomislav uzelac  Mar  1 97
  8.  */
  9. extern void imdct_init(void);
  10. extern void imdct(int win_type,int sb,int ch);
  11. extern void poly(int ch,int i);
  12. extern void premultiply(void);
  13.  
  14. extern short sample_buffer[18][32][2];
  15. extern float res[32][18];
  16. extern float s[2][32][18];
  17.  
  18. #ifdef TRANSFORM
  19.  
  20. void imdct_init();
  21. void imdct(int win_type,int sb,int ch);
  22. void poly(int ch,int i);
  23. void premultiply();
  24.  
  25. short sample_buffer[18][32][2];
  26. float s[2][32][18];
  27. float res[32][18];
  28. float win[4][36];
  29.  
  30. static const float t_sin[4][36]={{
  31.    -0.032160,    0.103553,   -0.182543,    0.266729,   -0.353554,    0.440377,
  32.    -0.524563,    0.603553,   -0.674947,    0.736575,   -0.786566,    0.823400,
  33.    -0.845957,    0.853554,   -0.845957,    0.823399,   -0.786566,    0.736575,
  34.    -0.674947,    0.603553,   -0.524564,    0.440378,   -0.353553,    0.266729,
  35.    -0.182544,    0.103553,   -0.032160,   -0.029469,    0.079459,   -0.116293,
  36.     0.138851,   -0.146446,    0.138851,   -0.116293,    0.079459,   -0.029469
  37. },{
  38.    -0.032160,    0.103553,   -0.182543,    0.266729,   -0.353554,    0.440377,
  39.    -0.524563,    0.603553,   -0.674947,    0.736575,   -0.786566,    0.823400,
  40.    -0.845957,    0.853554,   -0.845957,    0.823399,   -0.786566,    0.736575,
  41.    -0.675590,    0.608761,   -0.537300,    0.461749,   -0.382683,    0.300706,
  42.    -0.214588,    0.120590,   -0.034606,   -0.026554,    0.049950,   -0.028251,
  43.     0.000000,    0.000000,    0.000000,    0.000000,    0.000000,    0.000000
  44. },{
  45.    -0.103553,    0.353554,   -0.603553,    0.786566,   -0.853554,    0.786566,
  46.    -0.603553,    0.353553,   -0.103553,   -0.079459,    0.146446,   -0.079459,
  47.     0.000000,    0.000000,    0.000000,    0.000000,    0.000000,    0.000000,
  48.     0.000000,    0.000000,    0.000000,    0.000000,    0.000000,    0.000000,
  49.     0.000000,    0.000000,    0.000000,    0.000000,    0.000000,    0.000000,
  50.     0.000000,    0.000000,    0.000000,    0.000000,    0.000000,    0.000000
  51. },{
  52.     0.000000,    0.000000,    0.000000,    0.000000,    0.000000,    0.000000,
  53.    -0.127432,    0.379410,   -0.608182,    0.792598,   -0.915976,    0.967944,
  54.    -0.953717,    0.923880,   -0.887011,    0.843391,   -0.793353,    0.737277,
  55.    -0.674947,    0.603553,   -0.524564,    0.440378,   -0.353553,    0.266729,
  56.    -0.182544,    0.103553,   -0.032160,   -0.029469,    0.079459,   -0.116293,
  57.     0.138851,   -0.146446,    0.138851,   -0.116293,    0.079459,   -0.029469
  58. }};
  59.  
  60. static const float t_2cos[4][18]={
  61. { -0.174311,  -0.517638,  -0.845237,  -1.147153,  -1.414214,  -1.638304, -1.812616,  -1.931852,  -1.992389,  
  62.    0.174311,   0.517638,   0.845237,   1.147153,   1.414214,   1.638304, 1.812616,   1.931852,   1.992389},
  63. { -0.174311,  -0.517638,  -0.845237,  -1.147153,  -1.414214,  -1.638304, -1.812616,  -1.931852,  -1.992389,
  64.    0.174311,   0.517638,   0.845237,   1.147153,   1.414214,   1.638304, 1.812616,   1.931852,   1.992389},
  65. { -0.517638, -1.41421, -1.93185, 0.517638, 1.41421, 1.93185,0,0,0,0,0,0,0,0,0,0,0,0},
  66. { -0.174311,  -0.517638,  -0.845237,  -1.147153,  -1.414214,  -1.638304, -1.812616,  -1.931852,  -1.992389,
  67.    0.174311,   0.517638,   0.845237,   1.147153,   1.414214,   1.638304, 1.812616,   1.931852,   1.992389}
  68. };
  69.  
  70. static const float b1 = 1.997590912; static const float b2 = 1.990369453; static const float b3 = 1.978353019;
  71. static const float b4 = 1.961570560; static const float b5 = 1.940062506; static const float b6 = 1.913880671;
  72. static const float b7 = 1.883088130; static const float b8 = 1.847759065; static const float b9 = 1.807978586;
  73. static const float b10= 1.763842529; static const float b11= 1.715457220; static const float b12= 1.662939225;
  74. static const float b13= 1.606415063; static const float b14= 1.546020907; static const float b15= 1.481902251;
  75. static const float b16= 1.414213562; static const float b17= 1.343117910; static const float b18= 1.268786568;
  76. static const float b19= 1.191398609; static const float b20= 1.111140466; static const float b21= 1.028205488;
  77. static const float b22= 0.942793474; static const float b23= 0.855110187; static const float b24= 0.765366865;
  78. static const float b25= 0.673779707; static const float b26= 0.580569355; static const float b27= 0.485960360;
  79. static const float b28= 0.390180644; static const float b29= 0.293460949; static const float b30= 0.196034281;
  80. static const float b31= 0.098135349;
  81.  
  82. static float t_dewindow[17][32] =    {{
  83.  0.000000000 ,-0.000442505 , 0.003250122 ,-0.007003784 , 0.031082153 ,-0.078628540 , 0.100311279 ,-0.572036743 ,
  84.  1.144989014 , 0.572036743 , 0.100311279 , 0.078628540 , 0.031082153 , 0.007003784 , 0.003250122 , 0.000442505 ,
  85.  0.000000000 ,-0.000442505 , 0.003250122 ,-0.007003784 , 0.031082153 ,-0.078628540 , 0.100311279 ,-0.572036743 ,
  86.  1.144989014 , 0.572036743 , 0.100311279 , 0.078628540 , 0.031082153 , 0.007003784 , 0.003250122 , 0.000442505 ,
  87. },{
  88. -0.000015259 ,-0.000473022 , 0.003326416 ,-0.007919312 , 0.030517578 ,-0.084182739 , 0.090927124 ,-0.600219727 ,
  89.  1.144287109 , 0.543823242 , 0.108856201 , 0.073059082 , 0.031478882 , 0.006118774 , 0.003173828 , 0.000396729 ,
  90. -0.000015259 ,-0.000473022 , 0.003326416 ,-0.007919312 , 0.030517578 ,-0.084182739 , 0.090927124 ,-0.600219727 ,
  91.  1.144287109 , 0.543823242 , 0.108856201 , 0.073059082 , 0.031478882 , 0.006118774 , 0.003173828 , 0.000396729 ,
  92. },{
  93. -0.000015259 ,-0.000534058 , 0.003387451 ,-0.008865356 , 0.029785156 ,-0.089706421 , 0.080688477 ,-0.628295898 ,
  94.  1.142211914 , 0.515609741 , 0.116577148 , 0.067520142 , 0.031738281 , 0.005294800 , 0.003082275 , 0.000366211 ,
  95. -0.000015259 ,-0.000534058 , 0.003387451 ,-0.008865356 , 0.029785156 ,-0.089706421 , 0.080688477 ,-0.628295898 ,
  96.  1.142211914 , 0.515609741 , 0.116577148 , 0.067520142 , 0.031738281 , 0.005294800 , 0.003082275 , 0.000366211 ,
  97. },{
  98. -0.000015259 ,-0.000579834 , 0.003433228 ,-0.009841919 , 0.028884888 ,-0.095169067 , 0.069595337 ,-0.656219482 ,
  99.  1.138763428 , 0.487472534 , 0.123474121 , 0.061996460 , 0.031845093 , 0.004486084 , 0.002990723 , 0.000320435 ,
  100. -0.000015259 ,-0.000579834 , 0.003433228 ,-0.009841919 , 0.028884888 ,-0.095169067 , 0.069595337 ,-0.656219482 ,
  101.  1.138763428 , 0.487472534 , 0.123474121 , 0.061996460 , 0.031845093 , 0.004486084 , 0.002990723 , 0.000320435 ,
  102. },{
  103. -0.000015259 ,-0.000625610 , 0.003463745 ,-0.010848999 , 0.027801514 ,-0.100540161 , 0.057617187 ,-0.683914185 ,
  104.  1.133926392 , 0.459472656 , 0.129577637 , 0.056533813 , 0.031814575 , 0.003723145 , 0.002899170 , 0.000289917 ,
  105. -0.000015259 ,-0.000625610 , 0.003463745 ,-0.010848999 , 0.027801514 ,-0.100540161 , 0.057617187 ,-0.683914185 ,
  106.  1.133926392 , 0.459472656 , 0.129577637 , 0.056533813 , 0.031814575 , 0.003723145 , 0.002899170 , 0.000289917 ,
  107. },{
  108. -0.000015259 ,-0.000686646 , 0.003479004 ,-0.011886597 , 0.026535034 ,-0.105819702 , 0.044784546 ,-0.711318970 ,
  109.  1.127746582 , 0.431655884 , 0.134887695 , 0.051132202 , 0.031661987 , 0.003005981 , 0.002792358 , 0.000259399 ,
  110. -0.000015259 ,-0.000686646 , 0.003479004 ,-0.011886597 , 0.026535034 ,-0.105819702 , 0.044784546 ,-0.711318970 ,
  111.  1.127746582 , 0.431655884 , 0.134887695 , 0.051132202 , 0.031661987 , 0.003005981 , 0.002792358 , 0.000259399 ,
  112. },{
  113. -0.000015259 ,-0.000747681 , 0.003479004 ,-0.012939453 , 0.025085449 ,-0.110946655 , 0.031082153 ,-0.738372803 ,
  114.  1.120223999 , 0.404083252 , 0.139450073 , 0.045837402 , 0.031387329 , 0.002334595 , 0.002685547 , 0.000244141 ,
  115. -0.000015259 ,-0.000747681 , 0.003479004 ,-0.012939453 , 0.025085449 ,-0.110946655 , 0.031082153 ,-0.738372803 ,
  116.  1.120223999 , 0.404083252 , 0.139450073 , 0.045837402 , 0.031387329 , 0.002334595 , 0.002685547 , 0.000244141 ,
  117. },{
  118. -0.000030518 ,-0.000808716 , 0.003463745 ,-0.014022827 , 0.023422241 ,-0.115921021 , 0.016510010 ,-0.765029907 ,
  119.  1.111373901 , 0.376800537 , 0.143264771 , 0.040634155 , 0.031005859 , 0.001693726 , 0.002578735 , 0.000213623 ,
  120. -0.000030518 ,-0.000808716 , 0.003463745 ,-0.014022827 , 0.023422241 ,-0.115921021 , 0.016510010 ,-0.765029907 ,
  121.  1.111373901 , 0.376800537 , 0.143264771 , 0.040634155 , 0.031005859 , 0.001693726 , 0.002578735 , 0.000213623 ,
  122. },{
  123. -0.000030518 ,-0.000885010 , 0.003417969 ,-0.015121460 , 0.021575928 ,-0.120697021 , 0.001068115 ,-0.791213989 ,
  124.  1.101211548 , 0.349868774 , 0.146362305 , 0.035552979 , 0.030532837 , 0.001098633 , 0.002456665 , 0.000198364 ,
  125. -0.000030518 ,-0.000885010 , 0.003417969 ,-0.015121460 , 0.021575928 ,-0.120697021 , 0.001068115 ,-0.791213989 ,
  126.  1.101211548 , 0.349868774 , 0.146362305 , 0.035552979 , 0.030532837 , 0.001098633 , 0.002456665 , 0.000198364 ,
  127. },{
  128. -0.000030518 ,-0.000961304 , 0.003372192 ,-0.016235352 , 0.019531250 ,-0.125259399 ,-0.015228271 ,-0.816864014 ,
  129.  1.089782715 , 0.323318481 , 0.148773193 , 0.030609131 , 0.029937744 , 0.000549316 , 0.002349854 , 0.000167847 ,
  130. -0.000030518 ,-0.000961304 , 0.003372192 ,-0.016235352 , 0.019531250 ,-0.125259399 ,-0.015228271 ,-0.816864014 ,
  131.  1.089782715 , 0.323318481 , 0.148773193 , 0.030609131 , 0.029937744 , 0.000549316 , 0.002349854 , 0.000167847 ,
  132. },{
  133. -0.000030518 ,-0.001037598 , 0.003280640 ,-0.017349243 , 0.017257690 ,-0.129562378 ,-0.032379150 ,-0.841949463 ,
  134.  1.077117920 , 0.297210693 , 0.150497437 , 0.025817871 , 0.029281616 , 0.000030518 , 0.002243042 , 0.000152588 ,
  135. -0.000030518 ,-0.001037598 , 0.003280640 ,-0.017349243 , 0.017257690 ,-0.129562378 ,-0.032379150 ,-0.841949463 ,
  136.  1.077117920 , 0.297210693 , 0.150497437 , 0.025817871 , 0.029281616 , 0.000030518 , 0.002243042 , 0.000152588 ,
  137. },{
  138. -0.000045776 ,-0.001113892 , 0.003173828 ,-0.018463135 , 0.014801025 ,-0.133590698 ,-0.050354004 ,-0.866363525 ,
  139.  1.063217163 , 0.271591187 , 0.151596069 , 0.021179199 , 0.028533936 ,-0.000442505 , 0.002120972 , 0.000137329 ,
  140. -0.000045776 ,-0.001113892 , 0.003173828 ,-0.018463135 , 0.014801025 ,-0.133590698 ,-0.050354004 ,-0.866363525 ,
  141.  1.063217163 , 0.271591187 , 0.151596069 , 0.021179199 , 0.028533936 ,-0.000442505 , 0.002120972 , 0.000137329 ,
  142. },{
  143. -0.000045776 ,-0.001205444 , 0.003051758 ,-0.019577026 , 0.012115479 ,-0.137298584 ,-0.069168091 ,-0.890090942 ,
  144.  1.048156738 , 0.246505737 , 0.152069092 , 0.016708374 , 0.027725220 ,-0.000869751 , 0.002014160 , 0.000122070 ,
  145. -0.000045776 ,-0.001205444 , 0.003051758 ,-0.019577026 , 0.012115479 ,-0.137298584 ,-0.069168091 ,-0.890090942 ,
  146.  1.048156738 , 0.246505737 , 0.152069092 , 0.016708374 , 0.027725220 ,-0.000869751 , 0.002014160 , 0.000122070 ,
  147. },{
  148. -0.000061035 ,-0.001296997 , 0.002883911 ,-0.020690918 , 0.009231567 ,-0.140670776 ,-0.088775635 ,-0.913055420 ,
  149.  1.031936646 , 0.221984863 , 0.151962280 , 0.012420654 , 0.026840210 ,-0.001266479 , 0.001907349 , 0.000106812 ,
  150. -0.000061035 ,-0.001296997 , 0.002883911 ,-0.020690918 , 0.009231567 ,-0.140670776 ,-0.088775635 ,-0.913055420 ,
  151.  1.031936646 , 0.221984863 , 0.151962280 , 0.012420654 , 0.026840210 ,-0.001266479 , 0.001907349 , 0.000106812 ,
  152. },{
  153. -0.000061035 ,-0.001388550 , 0.002700806 ,-0.021789551 , 0.006134033 ,-0.143676758 ,-0.109161377 ,-0.935195923 ,
  154.  1.014617920 , 0.198059082 , 0.151306152 , 0.008316040 , 0.025909424 ,-0.001617432 , 0.001785278 , 0.000106812 ,
  155. -0.000061035 ,-0.001388550 , 0.002700806 ,-0.021789551 , 0.006134033 ,-0.143676758 ,-0.109161377 ,-0.935195923 ,
  156.  1.014617920 , 0.198059082 , 0.151306152 , 0.008316040 , 0.025909424 ,-0.001617432 , 0.001785278 , 0.000106812 ,
  157. },{
  158. -0.000076294 ,-0.001480103 , 0.002487183 ,-0.022857666 , 0.002822876 ,-0.146255493 ,-0.130310059 ,-0.956481934 ,
  159.  0.996246338 , 0.174789429 , 0.150115967 , 0.004394531 , 0.024932861 ,-0.001937866 , 0.001693726 , 0.000091553 ,
  160. -0.000076294 ,-0.001480103 , 0.002487183 ,-0.022857666 , 0.002822876 ,-0.146255493 ,-0.130310059 ,-0.956481934 ,
  161.  0.996246338 , 0.174789429 , 0.150115967 , 0.004394531 , 0.024932861 ,-0.001937866 , 0.001693726 , 0.000091553 ,
  162. },{
  163. -0.000076294 ,-0.001586914 , 0.002227783 ,-0.023910522 ,-0.000686646 ,-0.148422241 ,-0.152206421 ,-0.976852417 ,
  164.  0.976852417 , 0.152206421 , 0.148422241 , 0.000686646 , 0.023910522 ,-0.002227783 , 0.001586914 , 0.000076294 ,
  165. -0.000076294 ,-0.001586914 , 0.002227783 ,-0.023910522 ,-0.000686646 ,-0.148422241 ,-0.152206421 ,-0.976852417 ,
  166.  0.976852417 , 0.152206421 , 0.148422241 , 0.000686646 , 0.023910522 ,-0.002227783 , 0.001586914 , 0.000076294 ,
  167. }            };
  168. #endif /* TRANSFORM */
  169.